Remove XEmacs compat code from pascal.el

* lisp/progmodes/pascal.el (pascal-mark-defun): Remove XEmacs compat.

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index cae514aa75b4a097c6123f68fa445c746ec8c083..26fb0a88c5376ee447c763262e18896aac6c5649 100644 (file)
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -510,9 +510,7 @@ This puts the mark at the end, and point at the beginning."
   (push-mark)
   (pascal-end-of-defun)
   (push-mark)
-  (pascal-beg-of-defun)
-  (when (featurep 'xemacs)
-    (zmacs-activate-region)))
+  (pascal-beg-of-defun))
 
 (defun pascal-comment-area (start end)
   "Put the region into a Pascal comment.\\<pascal-mode-map>